home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_ddd.idb / usr / freeware / share / ddd-3.3.1 / vsllib / verbose.vsl.z / verbose.vsl
Text File  |  2001-10-09  |  3KB  |  80 lines
  1. // $Id: verbose.vsl,v 1.2 2000/06/09 13:06:28 andreas Exp $
  2. // Create term instead of boxes
  3.  
  4. // Copyright (C) 1993 Technische Universitaet Braunschweig, Germany.
  5. // Written by Andreas Zeller <zeller@gnu.org>.
  6. // 
  7. // This file is part of DDD.
  8. // 
  9. // DDD is free software; you can redistribute it and/or
  10. // modify it under the terms of the GNU General Public
  11. // License as published by the Free Software Foundation; either
  12. // version 2 of the License, or (at your option) any later version.
  13. // 
  14. // DDD is distributed in the hope that it will be useful,
  15. // but WITHOUT ANY WARRANTY; without even the implied warranty of
  16. // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  17. // See the GNU General Public License for more details.
  18. // 
  19. // You should have received a copy of the GNU General Public
  20. // License along with DDD -- see the file COPYING.
  21. // If not, write to the Free Software Foundation, Inc.,
  22. // 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  23. // 
  24. // DDD is the data display debugger.
  25. // For details, see the DDD World-Wide-Web page, 
  26. // `http://www.gnu.org/software/ddd/',
  27. // or send a mail to the DDD developers <ddd@gnu.org>.
  28.  
  29. #include "builtin.vsl"
  30. #include "linebreak.vsl"
  31.  
  32. _verbose_list(sep) = 0;
  33. _verbose_list(sep, head) = head;
  34. _verbose_list(sep, head, ...) = (head & sep) ~ _verbose_list(sep, ...);
  35.  
  36. verbose_list(sep, ...) = "(" & _verbose_list(sep, ...) & ")";
  37.  
  38. verbose_call(fcn, ...) = fcn & verbose_list(",", ...);
  39.  
  40.  
  41. #pragma override (&), (|), (^), (~), (+), (*), (::), (-), (/)
  42. #pragma override (%), (=), (<>), (>), (>=), (<), (<=), (not)
  43.  
  44. (&)(...) = verbose_list(" & ", ...);
  45. (|)(...) = verbose_list(" | ", ...);
  46. (^)(...) = verbose_list(" ^ ", ...);
  47. (~)(...) = verbose_list(" ~ ", ...);
  48. (+)(...) = verbose_list(" + ", ...);
  49. (*)(...) = verbose_list(" * ", ...);
  50. (::)(...) = verbose_list(" :: ", ...);
  51. (-)(...) = verbose_list(" - ", ...);
  52. (/)(...) = verbose_list(" / ", ...);
  53. (%)(...) = verbose_list(" % ", ...);
  54. (=)(...) = verbose_list(" = ", ...);
  55. (<>)(...) = verbose_list(" <> ", ...);
  56. (>=)(...) = verbose_list(" >= ", ...);
  57. (<)(...) = verbose_list(" < ", ...);
  58. (<=)(...) = verbose_list(" <= ", ...);
  59. (not)(...) = verbose_list(" not ", ...);
  60.  
  61.  
  62. #pragma override hspace, vspace, hfix, vfix, rise, fall, arc
  63. #pragma override square, tag, font, fontfix, fill, rule, diag, fail
  64.  
  65. hspace(...) = verbose_call("hspace", ...);
  66. vspace(...) = verbose_call("vspace", ...);
  67. hfix(...) = verbose_call("hfix", ...);
  68. vfix(...) = verbose_call("vfix", ...);
  69. rise(...) = verbose_call("rise", ...);
  70. fall(...) = verbose_call("fall", ...);
  71. arc(...) = verbose_call("arc", ...);
  72. square(...) = verbose_call("square", ...);
  73. tag(...) = verbose_call("tag", ...);
  74. font(...) = verbose_call("font", ...);
  75. fontfix(...) = verbose_call("fontfix", ...);
  76. fill(...) = verbose_call("fill", ...);
  77. rule(...) = verbose_call("rule", ...);
  78. diag(...) = verbose_call("diag", ...);
  79. fail(...) = verbose_call("fail", ...);
  80.